|
1600
|
How do I set a computated cell individually
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Number")
oDCOCX_Exontrol1:Columns:Add("Format")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("1.23")
var_Items:[CellValueFormat,h,1] := exComputedField
var_Items:[CellValue,h,1] := "2 * %0 + ` (2 * Number)`"
h := var_Items:AddItem("1.23")
var_Items:[CellValueFormat,h,1] := exComputedField
var_Items:[CellValue,h,1] := "3 * %0 + ` (3 * Number)`"
h := var_Items:AddItem("1.23")
var_Items:[CellValueFormat,h,1] := exComputedField
var_Items:[CellValue,h,1] := "currency(%0) + ` ( Currency(Number) )`"
oDCOCX_Exontrol1:EndUpdate()
|
|
1599
|
How can I hide a specific hour
local var_Chart as IChart
local var_InsideZooms,var_InsideZooms1 as IInsideZooms
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:Columns:Add("Default")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowInsideZoom := true
var_Chart:FirstWeekDay := exMonday
var_Chart:FirstVisibleDate := SToD("20130331")
var_Chart:[PaneWidth,false] := 52
var_Chart:LevelCount := 2
var_Chart:UnitScale := exHour
var_Chart:[Level,1]:Label := "<font ;6><%h%></font>"
var_Chart:UnitWidth := 14
var_Chart:DrawGridLines := exAllLines
var_Chart:AllowInsideZoom := true
var_Chart:DefaultInsideZoomFormat:InsideUnit := exMinute
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:DefaultWidth := 0
var_InsideZooms1 := var_Chart:InsideZooms
var_InsideZooms1:Add(SToD("20130331 23:00:00"))
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item")
oDCOCX_Exontrol1:EndUpdate()
|
|
1598
|
Is it possible to define the keys of the drop down values to be strings rather than numeric values
METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
// Change event - Occurs when the user changes the cell's content.
OutputDebugString(String2Psz( "NewValue is" ))
OutputDebugString(String2Psz( AsString(NewValue) ))
RETURN NIL
local var_Editor,var_Editor1 as IEditor
local var_Items as IItems
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList-String")}:Editor
var_Editor:EditType := DropDownListType
var_Editor:AddItem(1,"NYC|New York City",nil)
var_Editor:AddItem(2,"CJN|Cluj Napoca",nil)
var_Editor1 := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList-Numeric")}:Editor
var_Editor1:EditType := DropDownListType
var_Editor1:AddItem(1,"New York City",nil)
var_Editor1:AddItem(2,"Cluj Napoca",nil)
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("NYC"),1] := 2
|
|
1597
|
I have an edit field, when going to edit mode, the rightmost part is shown. Is it possible to show the left part instead
local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}
var_Column:Width := 64
var_Column:AllowSizing := false
var_Editor := var_Column:Editor
var_Editor:EditType := MaskType
var_Editor:Mask := ";;;rich"
oDCOCX_Exontrol1:Columns:Add("Empty")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("This is a bit ot long text")
var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()
|
|
1596
|
I have a drop down field, the control shows the rightmost part of the selected caption. Is it possible to show the left part
local var_Column,var_Column1 as IColumn
local var_Editor,var_Editor1,var_Editor2,var_Editor3 as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}
var_Column:Width := 64
var_Column:AllowSizing := false
var_Editor := var_Column:Editor
var_Editor:DropDownAlignment := 0x20 |
var_Editor:EditType := DropDownType
var_Editor:AddItem(1,"First item. This is a bit ot long text",nil)
var_Editor:AddItem(2,"Second item. This is a bit ot long text",nil)
var_Editor:AddItem(3,"Third item. This is a bit ot long text",nil)
var_Editor:Mask := ";;;rich"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("PickEdit")}
var_Column1:Width := 64
var_Column1:AllowSizing := false
var_Editor1 := var_Column1:Editor
var_Editor1:DropDownAlignment := 0x20 |
var_Editor1:EditType := PickEditType
var_Editor1:AddItem(1,"First item. This is a bit ot long text",nil)
var_Editor1:AddItem(2,"Second item. This is a bit ot long text",nil)
var_Editor1:AddItem(3,"Third item. This is a bit ot long text",nil)
var_Editor1:Mask := ";;;rich"
oDCOCX_Exontrol1:Columns:Add("Empty")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("First item. This is a bit ot long text"),1] := "Second item. This is a bit ot long text"
h := var_Items:AddItem("First item. This is a bit ot long text")
var_Editor2 := var_Items:[CellEditor,h,0]
var_Editor2:DropDownAlignment := 0x20 |
var_Editor2:EditType := DropDownType
var_Editor2:AddItem(1,"First item. This is a bit ot long text",nil)
var_Editor2:AddItem(2,"Second item. This is a bit ot long text",nil)
var_Editor2:AddItem(3,"Third item. This is a bit ot long text",nil)
var_Items:[CellValue,h,1] := "Second item. This is a bit ot long text"
var_Editor3 := var_Items:[CellEditor,h,1]
var_Editor3:DropDownAlignment := 0x20 |
var_Editor3:EditType := PickEditType
var_Editor3:AddItem(1,"First item. This is a bit ot long text",nil)
var_Editor3:AddItem(2,"Second item. This is a bit ot long text",nil)
var_Editor3:AddItem(3,"Third item. This is a bit ot long text",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1595
|
Is there a property for the back color of the dropdown field
local var_Editor as IEditor
oDCOCX_Exontrol1:BeginUpdate()
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:Editor
var_Editor:EditType := DateType
var_Editor:[Option,exDropDownBackColor] := 15790320
var_Editor:[Option,exDropDownForeColor] := 65793
oDCOCX_Exontrol1:Items:AddItem(SToD("20010101"))
oDCOCX_Exontrol1:EndUpdate()
|
|
1594
|
Is it possible to change a back color of the field/cell when it takes a focus
METHOD OCX_Exontrol1EditClose() CLASS MainDialog
// EditClose event - Occurs when the edit operation ends.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:ClearCellBackColor(var_Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex)
RETURN NIL
METHOD OCX_Exontrol1EditOpen() CLASS MainDialog
// EditOpen event - Occurs when the edit operation starts.
local var_Items,var_Items1 as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellBackColor,var_Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex] := RGB(255,0,0)
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[CellValue,var_Items1:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex] := oDCOCX_Exontrol1:Items:[CellValue,oDCOCX_Exontrol1:Items:FocusItem,oDCOCX_Exontrol1:FocusColumnIndex]
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
IColumn{oDCOCX_Exontrol1:Columns:Add("C1")}:Editor:EditType := EditType
IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}:Editor:EditType := EditType
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("v1"),1] := "v2"
var_Items:[CellValue,var_Items:AddItem("v3"),1] := "v4"
|
|
1593
|
How can I display the current date mask, but still allow empty values
local var_Editor as IEditor
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:CauseValidateValue := exValidateCell
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:Editor
var_Editor:EditType := DateType
var_Editor:Mask := "!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(nil)
var_Items:AddItem(SToD("20010101"))
var_Items:AddItem(nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1592
|
How can I align the days in a DateType editor
local var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5 as IEditor
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("DropDown")
var_Items := oDCOCX_Exontrol1:Items
var_Editor := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
var_Editor:EditType := DateType
var_Editor:DropDownAlignment := RightAlignment
var_Editor1 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
var_Editor1:EditType := DateType
var_Editor1:DropDownAlignment := CenterAlignment
var_Editor2 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
var_Editor2:EditType := DateType
var_Editor2:DropDownAlignment := LeftAlignment
var_Editor3 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
var_Editor3:EditType := DateType
var_Editor3:DropDownAlignment := 0x20 |
var_Editor4 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
var_Editor4:EditType := DateType
var_Editor4:DropDownAlignment := 0x20 | CenterAlignment
var_Editor5 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
var_Editor5:EditType := DateType
var_Editor5:DropDownAlignment := 0x20 | RightAlignment
|
|
1591
|
How can I align the drop down portion rather the inside captions
local var_Editor,var_Editor1 as IEditor
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("DropDown")}:Editor:EditType := DateType
var_Items := oDCOCX_Exontrol1:Items
var_Editor := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
var_Editor:EditType := DateType
var_Editor:DropDownAlignment := 0x20 |
var_Editor1 := var_Items:[CellEditor,var_Items:AddItem(SToD("20010101")),0]
var_Editor1:EditType := DateType
var_Editor1:DropDownAlignment := exHOutside
var_Items:AddItem(SToD("20010101"))
|
|
1590
|
Is it possible to show a message that the field is empty
local var_Column as IColumn
local var_Editor as IEditor
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Float")}
var_Editor := var_Column:Editor
var_Editor:EditType := MaskType
var_Editor:Mask := ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
oDCOCX_Exontrol1:Items:AddItem(192278)
oDCOCX_Exontrol1:Items:AddItem(1000)
|
|
1589
|
How can I mask a date
local var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Editor7,var_Editor8 as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:CauseValidateValue := exValidateCell
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Date")
oDCOCX_Exontrol1:Columns:Add("Mask")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010101"))
var_Editor := var_Items:[CellEditor,h,0]
var_Editor:EditType := DateType
var_Editor:Mask := "{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1"
var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
h := var_Items:AddItem(SToD("20010101"))
var_Editor1 := var_Items:[CellEditor,h,0]
var_Editor1:EditType := DateType
var_Editor1:Mask := "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
h := var_Items:AddItem(SToD("20010101"))
var_Editor2 := var_Items:[CellEditor,h,0]
var_Editor2:EditType := DateType
var_Editor2:Mask := "!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
h := var_Items:AddItem(SToD("20010101"))
var_Editor3 := var_Items:[CellEditor,h,0]
var_Editor3:EditType := DateType
var_Editor3:Mask := "!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1"
var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
h := var_Items:AddItem(SToD("20010101"))
var_Editor4 := var_Items:[CellEditor,h,0]
var_Editor4:EditType := DateType
var_Editor4:Mask := "![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,leading= "
var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
h := var_Items:AddItem(SToD("20010101"))
var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
var_Editor5 := var_Items:[CellEditor,h,0]
var_Editor5:EditType := DateType
var_Editor5:Mask := "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading"
var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
h := var_Items:AddItem(SToD("20010101"))
var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
var_Editor6 := var_Items:[CellEditor,h,0]
var_Editor6:EditType := DateType
var_Editor6:Mask := "!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading"
var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
h := var_Items:AddItem(SToD("20010101"))
var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
var_Editor7 := var_Items:[CellEditor,h,0]
var_Editor7:EditType := DateType
var_Editor7:Mask := "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
h := var_Items:AddItem(SToD("20010101"))
var_Items:[FormatCell,h,0] := "len(value) ? shortdateF(value) : ``"
var_Editor8 := var_Items:[CellEditor,h,0]
var_Editor8:EditType := DateType
var_Editor8:Mask := "!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=1,overtype"
var_Items:[CellValue,h,1] := var_Items:[CellEditor,h,0]:Mask
oDCOCX_Exontrol1:EndUpdate()
|
|
1588
|
How can I display and edit an integer number to show grouping digits too ( no decimals)
local var_Column as IColumn
local var_Editor as IEditor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Float")}
var_Column:FormatColumn := "value format `0`"
var_Editor := var_Column:Editor
var_Editor:EditType := MaskType
var_Editor:Mask := ";;;float,digits=0"
oDCOCX_Exontrol1:Items:AddItem(192278)
|
|
1587
|
How can I display and edit a float number to show grouping digits too
local var_Column as IColumn
local var_Editor as IEditor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Float")}
var_Column:FormatColumn := "value format ``"
var_Editor := var_Column:Editor
var_Editor:EditType := MaskType
var_Editor:Mask := ";;;float"
oDCOCX_Exontrol1:Items:AddItem(192278)
|
|
1586
|
How can I mask a phone number
local var_Editor,var_Editor1,var_Editor2,var_Editor3 as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:CauseValidateValue := exValidateCell
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
IColumn{oDCOCX_Exontrol1:Columns:Add("Phone")}:Editor:EditType := MaskType
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(nil)
var_Editor := var_Items:[CellEditor,h,0]
var_Editor:EditType := MaskType
var_Editor:Mask := "!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
h := var_Items:AddItem("0123")
var_Editor1 := var_Items:[CellEditor,h,0]
var_Editor1:EditType := MaskType
var_Editor1:Mask := "!(999) 000 0000;2;;select=4"
h := var_Items:AddItem("0123")
var_Editor2 := var_Items:[CellEditor,h,0]
var_Editor2:EditType := MaskType
var_Editor2:Mask := "`Phone: `!(999) 000-0000"
h := var_Items:AddItem("(074) 876-1222")
var_Editor3 := var_Items:[CellEditor,h,0]
var_Editor3:EditType := MaskType
var_Editor3:Mask := "!(999) 000-0000;0"
|
|
1585
|
Is it possible to display the ColorType fields using RGB format
local var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6 as IEditor
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("Color")}:Editor:EditType := ColorType
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(255)
h := var_Items:AddItem(255)
var_Editor := var_Items:[CellEditor,h,0]
var_Editor:EditType := ColorType
var_Editor:Mask := "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
h := var_Items:AddItem(255)
var_Editor1 := var_Items:[CellEditor,h,0]
var_Editor1:EditType := ColorType
var_Editor1:Mask := "`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!"
h := var_Items:AddItem(255)
var_Editor2 := var_Items:[CellEditor,h,0]
var_Editor2:EditType := ColorType
var_Editor2:Mask := "`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!"
h := var_Items:AddItem(255)
var_Editor3 := var_Items:[CellEditor,h,0]
var_Editor3:EditType := ColorType
var_Editor3:Mask := "R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!"
h := var_Items:AddItem(255)
var_Editor4 := var_Items:[CellEditor,h,0]
var_Editor4:EditType := ColorType
var_Editor4:Mask := "`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!"
h := var_Items:AddItem(255)
var_Editor5 := var_Items:[CellEditor,h,0]
var_Editor5:EditType := ColorType
var_Editor5:Mask := "`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
h := var_Items:AddItem(255)
var_Editor6 := var_Items:[CellEditor,h,0]
var_Editor6:EditType := ColorType
var_Editor6:Mask := "`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
|
|
1584
|
How can I specify a different color for bars that cross over the non-working part of the chart
local var_Bars as IBars
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
var_Bars := oDCOCX_Exontrol1:Chart:Bars
var_Bars:Copy("Task","STask"):Color := RGB(255,0,0)
var_Bars:Add("Task:STask"):Shortcut := "TS"
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 96
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:NonworkingDaysColor := var_Chart:Bars:[Item,"STask"]:Color
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"TS",SToD("20010102"),SToD("20010116"),nil,nil)
|
|
1583
|
How can I merge two columns
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:[CellMerge,Item,0] := 1
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:DrawGridLines := exAllLines
IColumn{oDCOCX_Exontrol1:Columns:Add("C1")}:[Def,exCellSingleLine] := false
oDCOCX_Exontrol1:Columns:Add("C2")
oDCOCX_Exontrol1:Columns:Add("C3")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
var_Items:AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
|
|
1582
|
How can I expand an item once the user clicks the column's checkbox
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ExpandItem,Item] := false
RETURN NIL
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:AllowSizing := false
var_Column:Width := 18
var_Column:PartialCheck := true
var_Columns:Add("Tasks")
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:HasButtons := exNoButtons
oDCOCX_Exontrol1:TreeColumnIndex := 1
oDCOCX_Exontrol1:Indent := 14
oDCOCX_Exontrol1:ExpandOnDblClick := false
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("")
var_Items:[CellState,h,0] := 1
var_Items:[CellValue,h,1] := "Project"
hChild := var_Items:InsertItem(h,nil,"")
var_Items:[CellValue,hChild,1] := "Task 1"
hChild := var_Items:InsertItem(h,nil,"")
var_Items:[CellValue,hChild,1] := "Task 2"
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1581
|
How can I define a column with check-box
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:AllowSizing := false
var_Column:Width := 18
var_Column:PartialCheck := true
var_Columns:Add("Tasks")
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:HasButtons := exNoButtons
oDCOCX_Exontrol1:TreeColumnIndex := 1
oDCOCX_Exontrol1:Indent := 14
oDCOCX_Exontrol1:ExpandOnDblClick := false
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("")
var_Items:[CellState,h,0] := 1
var_Items:[CellValue,h,1] := "Project"
hChild := var_Items:InsertItem(h,nil,"")
var_Items:[CellValue,hChild,1] := "Task 1"
hChild := var_Items:InsertItem(h,nil,"")
var_Items:[CellValue,hChild,1] := "Task 2"
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1580
|
We need to know how it's possibile to have the bars on the same line and not in a different line
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exAllLines
var_Chart:FirstVisibleDate := SToD("20020101")
var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Tasks")
var_Items:AddBar(h,"Task",SToD("20020102"),SToD("20020107"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20020103"),SToD("20020108"),"B",nil)
var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020109"),"C",nil)
var_Items:[ItemBar,h,"A",exBarColor] := 255
var_Items:AddLink("AB",h,"A",h,"B")
var_Items:AddLink("BC",h,"B",h,"C")
oDCOCX_Exontrol1:EndUpdate()
|
|
1579
|
The Change event gets me the today date. How can I find what user typed
METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
// Change event - Occurs when the user changes the cell's content.
OutputDebugString(String2Psz( "NewValue:" ))
OutputDebugString(String2Psz( AsString(NewValue) ))
OutputDebugString(String2Psz( "EditingValue:" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:EditingText ))
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor:EditType := DateType
oDCOCX_Exontrol1:Items:AddItem(SToD("20010101"))
oDCOCX_Exontrol1:EndUpdate()
|
|
1578
|
How can I add a footer row
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ShowLockedItems := true
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[LockedItemCount,exBottom] := 1
h := var_Items:[LockedItem,exBottom,0]
var_Items:[ItemBackColor,h] := RGB(128,128,128)
var_Items:[ItemForeColor,h] := RGB(255,255,255)
var_Items:[CellValue,h,0] := "footer c1"
var_Items:[CellValue,h,1] := "footer c2"
var_Items:[CellValue,var_Items:AddItem("cell"),1] := "cell"
|
|
1577
|
How can I add a header row
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ShowLockedItems := true
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[LockedItemCount,exTop] := 1
h := var_Items:[LockedItem,exTop,0]
var_Items:[ItemBackColor,h] := RGB(128,128,128)
var_Items:[ItemForeColor,h] := RGB(255,255,255)
var_Items:[CellValue,h,0] := "footer c1"
var_Items:[CellValue,h,1] := "footer c2"
var_Items:[CellValue,var_Items:AddItem("cell"),1] := "cell"
|
|
1576
|
How can I fix a column, while other sizable and fill the control's client
local var_Column as IColumn
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:Columns:Add("Sizable")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("F")}
var_Column:AllowSizing := false
var_Column:Width := 16
|
|
1575
|
How can I programmatically add more columns to the sort bar and other to be sorted, but not included in the sort bar
local var_Columns as IColumns
oDCOCX_Exontrol1:SortBarVisible := true
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add(AsString(0))
var_Columns:Add(AsString(1))
var_Columns:Add(AsString(2))
var_Columns:Add(AsString(3))
var_Columns:Add(AsString(4))
oDCOCX_Exontrol1:Layout := "multiplesort=" + CHR(34) + "C3:1 C4:2" + CHR(34) + ";singlesort=" + CHR(34) + "C2:1" + CHR(34) + ""
|
|
1574
|
I'm using different bar types, in order to use different colours. The problem I'm having is that when two bars of different types overlap, and should in the histogram show as overallocated, they instead overlap here too, and show as single unit. Is there a way I can correctly show this as an overallocation
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
h := var_Items:AddItem("Item 2")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010107"),nil,nil)
var_Items:[ItemBar,h,"",exBarColor] := 255
var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010106"),SToD("20010109"),nil,nil)
|
|
1573
|
Is it possible to assign a different EBN to a specified bar
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Appearance:Add(2,"c:\exontrol\images\pushed.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarColor] := 255
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarColor] := 16777216
h := var_Items:AddItem("Task 4")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarColor] := 16777471
h := var_Items:AddItem("Task 5")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarColor] := 33619967
oDCOCX_Exontrol1:EndUpdate()
|
|
1572
|
How can I provide a mask for a date column
METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
// Change event - Occurs when the user changes the cell's content.
OutputDebugString(String2Psz( "Prev Value " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[CellValue,Item,ColIndex]) ))
OutputDebugString(String2Psz( "Check and Update the NewValue" ))
OutputDebugString(String2Psz( AsString(NewValue) ))
NewValue := SToD("20010101")
RETURN NIL
local var_Column as IColumn
local var_Editor as IEditor
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column:FormatColumn := "day(value) + `/` + month(value) + `/` + year(value)"
var_Editor := var_Column:Editor
var_Editor:EditType := DateType
var_Editor:Mask := "{1,12}\/{1,31}\/{1,2099}"
oDCOCX_Exontrol1:Items:AddItem(SToD("20010101"))
oDCOCX_Exontrol1:EndUpdate()
|
|
1571
|
I am trying to introduce a custom tool tip to those particular cells. I have it working and I know I can style the font etc. however, what I would like to do is style the tooltip container itself like add some padding or add a border color. Is this possible
oDCOCX_Exontrol1:ToolTipDelay := 1
oDCOCX_Exontrol1:ToolTipWidth := 364
oDCOCX_Exontrol1:VisualAppearance:Add(1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\frame.ebn")
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1000000
IColumn{oDCOCX_Exontrol1:Columns:Add("tootip")}:ToolTip := "this is a tooltip assigned to a column"
|
|
1570
|
Is it possible to edit a float number without using of e/E/d/D (exponent) and +/- (signs) characters
local var_Editor as IEditor
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
var_Editor:EditType := EditType
var_Editor:Numeric := exDisableSigns | exFloatInteger
oDCOCX_Exontrol1:Items:AddItem(1.22)
|
|
1569
|
How can I edit a float number with no using of e/E/d/D and + character
local var_Editor as IEditor
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
var_Editor:EditType := EditType
var_Editor:Numeric := exDisablePlus | exFloatInteger
oDCOCX_Exontrol1:Items:AddItem(1.22)
|
|
1568
|
Is it possible to edit a float number with no using of e/E/d/D (exponent) characters
local var_Editor as IEditor
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
var_Editor:EditType := EditType
var_Editor:Numeric := exFloatInteger
oDCOCX_Exontrol1:Items:AddItem(1.22)
|
|
1567
|
How can I edit an integer with no using of +/- signs
local var_Editor as IEditor
var_Editor := IColumn{oDCOCX_Exontrol1:Columns:Add("Edit")}:Editor
var_Editor:EditType := EditType
var_Editor:Numeric := 0xfc | exDisableSigns | exFloatInteger | exFloat
oDCOCX_Exontrol1:Items:AddItem(1)
|
|
1566
|
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Value")
var_Column := IColumn{var_Columns:Add("CellSingleLine = False")}
var_Column:ComputedField := "%0"
var_Column:[Def,exCellSingleLine] := false
var_Column1 := IColumn{var_Columns:Add("FormatColumn/replace CRLF")}
var_Column1:ComputedField := "%0"
var_Column1:FormatColumn := "value replace `\r\n` with ``"
var_Column2 := IColumn{var_Columns:Add("FormatColumn/replace TAB,CRLF")}
var_Column2:ComputedField := "%0"
var_Column2:FormatColumn := "(value replace `\t` with ``) replace `\r\n` with ``"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("a\ta\r\nb\tb")
|
|
1565
|
I am using the Chart.ShowLinksColor property, the question is it is possible to prevent changing the bar's color
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:NonworkingDays := 0
var_Chart:LinksStyle := exLinkSolid
var_Chart:[ShowLinksColor,exUpdateColorLinksOnly | exShowLinksStartFrom] := RGB(255,0,0)
var_Chart:[ShowLinksColor,exUpdateColorLinksOnly | exShowLinksEndTo] := RGB(0,255,0)
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:[ItemBar,h2,"",exBarSelected] := true
var_Items:AddLink("L1",h1,"",h2,"")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L2",h2,"",h3,"")
var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()
|
|
1564
|
Apparently, the links are shown on the back. Is there any option to bring them in front
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060919")
var_Chart:[PaneWidth,false] := 64
var_Chart:NonworkingDaysPattern := exPatternSolid
var_Chart:ShowLinks := exShowLinksFront | exShowExtendedLinks
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20060920"),SToD("20060922"),nil,nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20060926"),SToD("20060928"),nil,nil)
var_Items:[ItemBar,h2,"",exBarSelected] := true
var_Items:AddLink("L1",h1,"",h2,"")
var_Items:[Link,"L1",exLinkText] := "L1"
oDCOCX_Exontrol1:EndUpdate()
|
|
1563
|
How can I enable the extended links feature
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:NonworkingDays := 0
var_Chart:LinksStyle := exLinkSolid
var_Chart:ShowLinks := exShowExtendedLinks
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L1",h1,"",h2,"")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L2",h3,"",h2,"")
var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()
|
|
1562
|
How do I count all bars in the chart
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Task")
var_Items:AddBar(hSummary,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task A")
var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.1"),"Task",SToD("20010103"),SToD("20010105"),"K11",nil)
var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.2"),"Task",SToD("20010103"),SToD("20010105"),"K12",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task B")
var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
var_Items:AddBar(hTask,"Task",SToD("20010105"),SToD("20010109"),"K21",nil)
var_Items:[ExpandItem,0] := true
OutputDebugString(String2Psz( "Count: " ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,0,"<*>",exBarsCount]) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
1561
|
Is there any property to count the all child bars of a specified item ( all descendents )
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:Bars:Copy("Task","CountTask"):Color := RGB(0,255,0)
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Project")
var_Items:[ItemBold,hSummary] := true
hTask := var_Items:InsertItem(hSummary,nil,"Task A")
var_Items:AddBar(hTask,"CountTask",SToD("20010102"),SToD("20010105"),"K1",nil)
var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.1"),"CountTask",SToD("20010103"),SToD("20010105"),"K11",nil)
var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.2"),"CountTask",SToD("20010103"),SToD("20010105"),"K12",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task B")
var_Items:AddBar(hTask,"CountTask",SToD("20010102"),SToD("20010105"),"K2",nil)
hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
var_Items:AddBar(hTask,"CountTask",SToD("20010105"),SToD("20010109"),"K21",nil)
var_Items:[ExpandItem,0] := true
var_Items:DefaultItem := var_Items:[ItemByIndex,0]
OutputDebugString(String2Psz( "Count: " ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,-3,"<*>",exBarsCount]) ))
var_Items:DefaultItem := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
1560
|
Is there any property to count the child bars of a specified item ( leaf descendents )
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:Bars:Copy("Task","CountTask"):Color := RGB(0,255,0)
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Project")
var_Items:[ItemBold,hSummary] := true
hTask := var_Items:InsertItem(hSummary,nil,"Task A")
var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.1"),"CountTask",SToD("20010103"),SToD("20010105"),"K11",nil)
var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.2"),"CountTask",SToD("20010103"),SToD("20010105"),"K12",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task B")
var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
var_Items:AddBar(hTask,"CountTask",SToD("20010105"),SToD("20010109"),"K21",nil)
var_Items:[ExpandItem,0] := true
var_Items:DefaultItem := var_Items:[ItemByIndex,0]
OutputDebugString(String2Psz( "Count: " ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,-2,"<*>",exBarsCount]) ))
var_Items:DefaultItem := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
1559
|
Is there any property to count the child bars of a specified item ( direct descendents )
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:Bars:Copy("Task","CountTask"):Color := RGB(0,255,0)
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Project")
var_Items:[ItemBold,hSummary] := true
hTask := var_Items:InsertItem(hSummary,nil,"Task A")
var_Items:AddBar(hTask,"CountTask",SToD("20010102"),SToD("20010105"),"K1",nil)
var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.1"),"Task",SToD("20010103"),SToD("20010105"),"K11",nil)
var_Items:AddBar(var_Items:InsertItem(hTask,nil,"Task A.2"),"Task",SToD("20010103"),SToD("20010105"),"K12",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task B")
var_Items:AddBar(hTask,"CountTask",SToD("20010102"),SToD("20010105"),"K2",nil)
hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
var_Items:AddBar(hTask,"Task",SToD("20010105"),SToD("20010109"),"K21",nil)
var_Items:[ExpandItem,0] := true
var_Items:DefaultItem := var_Items:[ItemByIndex,0]
OutputDebugString(String2Psz( "Count: " ))
OutputDebugString(String2Psz( AsString(var_Items:[ItemBar,-1,"<*>",exBarsCount]) ))
var_Items:DefaultItem := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
1558
|
How can I define all child items to belong to a summary bar (DefineSummaryBars-3)
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Summary")
var_Items:AddBar(hSummary,"Summary",SToD("20010102"),SToD("20010102"),"",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task A")
var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
hTask := var_Items:InsertItem(hTask,nil,"Task A.1")
var_Items:AddBar(hTask,"Task",SToD("20010103"),SToD("20010105"),"K11",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task B")
var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
var_Items:AddBar(hTask,"Task",SToD("20010105"),SToD("20010109"),"K21",nil)
var_Items:DefineSummaryBars(hSummary,"",-3,"<K*>")
var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1557
|
Can I define automatically the leaf descendents of the summary bar (DefineSummaryBars-2)
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Summary")
var_Items:AddBar(hSummary,"Summary",SToD("20010102"),SToD("20010102"),"",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task A")
var_Items:AddBar(hTask,"1Task",SToD("20010102"),SToD("20010105"),"K1",nil)
hTask := var_Items:InsertItem(hTask,nil,"Task A.1")
var_Items:AddBar(hTask,"Task",SToD("20010103"),SToD("20010105"),"K11",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task B")
var_Items:AddBar(hTask,"1Task",SToD("20010102"),SToD("20010105"),"K2",nil)
hTask := var_Items:InsertItem(hTask,nil,"Task B.1")
var_Items:AddBar(hTask,"Task",SToD("20010105"),SToD("20010109"),"K21",nil)
var_Items:DefineSummaryBars(hSummary,"",-2,"<K*>")
var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1556
|
How can I assign the childs bars to a summary bar (DefineSummaryBars-1)
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Summary")
var_Items:AddBar(hSummary,"Summary",SToD("20010102"),SToD("20010102"),"",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task A")
var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
hTask := var_Items:InsertItem(hSummary,nil,"Task B")
var_Items:AddBar(hTask,"Task",SToD("20010104"),SToD("20010108"),"K2",nil)
var_Items:[ExpandItem,hSummary] := true
var_Items:DefineSummaryBars(hSummary,"",-1,"<*>")
oDCOCX_Exontrol1:EndUpdate()
|
|
1555
|
Is it possible to define a summary bar to include all bars in the chart (DefineSummaryBars-0)
local var_Chart as IChart
local var_Items as IItems
local hSummary as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Summary")
var_Items:AddBar(hSummary,"Summary",SToD("20010102"),SToD("20010102"),"summary",nil)
var_Items:AddBar(var_Items:AddItem("Task A"),"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task B"),"Task",SToD("20010106"),SToD("20010109"),"K2",nil)
var_Items:AddBar(var_Items:AddItem("Task C"),"Task",SToD("20010111"),SToD("20010114"),"K3",nil)
var_Items:DefineSummaryBars(hSummary,"summary",0,"<K*>")
oDCOCX_Exontrol1:EndUpdate()
|
|
1554
|
Is there any way to "unselect" radio group
METHOD OCX_Exontrol1DblClick(Shift,X,Y) CLASS MainDialog
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
local var_Items as IItems
local h as USUAL
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:[CellChecked,1234]
var_Items:[CellHasCheckBox,0,h] := true
var_Items:[CellState,0,h] := 0
var_Items:[CellHasCheckBox,0,h] := false
RETURN NIL
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellState,var_Items:FocusItem,0] := 1
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SelBackColor := RGB(255,255,128)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Radio 1")
var_Items:[CellHasRadioButton,h,0] := true
var_Items:[CellRadioGroup,h,0] := 1234
h := var_Items:AddItem("Radio 2")
var_Items:[CellHasRadioButton,h,0] := true
var_Items:[CellRadioGroup,h,0] := 1234
var_Items:[CellState,h,0] := 1
h := var_Items:AddItem("Radio 3")
var_Items:[CellHasRadioButton,h,0] := true
var_Items:[CellRadioGroup,h,0] := 1234
|
|
1553
|
The Column.Alignment property does not seem to work for cells with images in them. What can be done
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:DefaultItemHeight := 24
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
var_Column:AllowSizing := false
var_Column:Width := 32
var_Column:HTMLCaption := "<img>1</img>"
var_Column:HeaderAlignment := CenterAlignment
var_Column:Alignment := CenterAlignment
var_Column:[Def,exCellValueFormat] := 1
oDCOCX_Exontrol1:Columns:Add("Rest")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("<img>1</img>")
var_Items:AddItem("<img>2</img>")
var_Items:AddItem("<img>3</img>")
oDCOCX_Exontrol1:EndUpdate()
|
|
1552
|
Is there any way to determine in a bar would overlay another bar or to not allow this and get some error indication
METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
// BarResize event - Occurs when a bar is moved or resized.
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Bar,var_Bar1 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("InterectBars")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:OverlaidType := exOverlaidBarsIntersect
var_Bar:[Overlaid,exOverlaidBarsIntersect] := "ERROR"
var_Bar1 := var_Chart:Bars:Add("ERROR")
var_Bar1:Color := RGB(255,0,0)
var_Bar1:Pattern := exPatternSolid
var_Bar1:Height := 7
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A","A")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"B","B")
var_Items:[CellValue,h,0] := var_Items:[IntersectBars,h,"A",h,"B"]
h := var_Items:AddItem("")
var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010109"),"A","A")
var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010113"),"B","B")
var_Items:[CellValue,h,0] := var_Items:[IntersectBars,h,"A",h,"B"]
h := var_Items:AddItem("")
var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010109"),"B","B")
var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010113"),"A","A")
var_Items:[CellValue,h,0] := var_Items:[IntersectBars,h,"A",h,"B"]
oDCOCX_Exontrol1:EndUpdate()
|
|
1551
|
Is it possible to change the font size of the header compared to that of the control. I would like to make the font of the headers smaller
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 32
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("ID")}
var_Column:HTMLCaption := "<font ;16>ID"
var_Column:Width := 32
var_Column:AllowSizing := false
IColumn{var_Columns:Add("Task")}:HTMLCaption := "<font ;16>Task"
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(1),1] := "Task A"
var_Items:[CellValue,var_Items:AddItem(2),1] := "Task B"
oDCOCX_Exontrol1:EndUpdate()
|
|
1550
|
How can I create items and bars at runtime
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("ID")}
var_Column:FormatColumn := "1 index ''"
var_Column:Width := 32
var_Column:AllowSizing := false
IColumn{var_Columns:Add("Task")}:Editor:EditType := EditType
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:ShowFocusRect := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:AllowCreateBar := exCreateBarAuto
oDCOCX_Exontrol1:Template := "Chart.Bars(" + CHR(34) + "Task" + CHR(34) + "){Def(3) = " + CHR(34) + "<%=%C1%>" + CHR(34) + ";Def(4)=18}"
oDCOCX_Exontrol1:EndUpdate()
|
|
1549
|
How can I a group summary bar with a task bar, so when the summary bar changes the task bar will move accordingly
local var_Chart as IChart
local var_Items as IItems
local hSummary,hTask as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Summary")
var_Items:AddBar(hSummary,"Summary",SToD("20010102"),SToD("20010102"),nil,nil)
hTask := var_Items:AddItem("Task A")
var_Items:AddBar(hTask,"Task",SToD("20010102"),SToD("20010105"),nil,nil)
var_Items:DefineSummaryBars(hSummary,"",hTask,"")
hTask := var_Items:AddItem("Task B")
var_Items:AddBar(hTask,"Task",SToD("20010104"),SToD("20010108"),nil,nil)
var_Items:DefineSummaryBars(hSummary,"",hTask,"")
|
|
1548
|
How can I show the bars using a solid color, with no pattern inside
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exAllLines
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Solid A")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"B",nil)
var_Items:[ItemBar,h,"B",exBarColor] := 255
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"C",nil)
var_Items:[ItemBar,h,"C",exBarColor] := 65280
h := var_Items:AddItem("Solid B")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
var_Items:[ItemBar,h,"A",exBarBackColor] := 255
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"B",nil)
var_Items:[ItemBar,h,"B",exBarColor] := 255
var_Items:[ItemBar,h,"B",exBarBackColor] := 65280
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"C",nil)
var_Items:[ItemBar,h,"C",exBarColor] := 16711680
var_Items:[ItemBar,h,"C",exBarBackColor] := 16711935
oDCOCX_Exontrol1:EndUpdate()
|
|
1547
|
Basically what I am trying to do is replicate MS Project look & feel. Is that possible
local var_Appearance as IAppearance
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BNUMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYQEiKLoaRzAcwyDAcQRFCKUJxhEYZai+NobSBQMZqBQgASIUCLZ5ACSYEigAovTULCKwJiWNZDUTRcTxCKQahLLivIhGUYKfgmY5lT5VUT1HS9IShJSmKTlORLOi+M4zUJLc4SVblGz7FyfYDBKygLqqFigLAxdDYTRNfzjHiTKbtGA7MADA4DVTAeC2bC+EYVTytY4sHQrIACZ5iWREMhXTi0E4rTa6dTxaS6KzKGqsZbsNAbHLdHTfVy1Mx1XaobqDJZdaTpdjaTDeJSjVjKdx4TZqSizjSGJOgcU4RhcIQDDURhIESXwEGgbQJBQQjeggQBiC4NJAluGJrAUB5Lmmc56n4Pp/i+NQjmqdQ5k2J5+AGAAgCgFgEgAHxQAGfoBmAOA2AaAxghgLgOgMIJ4AoER8mEWBSBoNohHKAgZgSYgIHYH4ImCB5OAqBghjiEgcgmIQoioD4IiKGJGCsUgUHiVirmOBQVAEgI=")
var_Appearance:Add(39,"CP:1 -1 -1 0 0")
var_Appearance:Add(40,"gBFLBCJwBAEHhEJAEGg4BEcMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTZKkAZwEiKLoaRzAcwyDAcQRFCKUJxlKa5PjaLwAAbJMZKAqDDgBIijIqnKA5JoyKIkTzCIJxXScByDGqNaQoehYXhEMg1CTXVgRCKoYTDBKybLqGT6VoCP5vWJaURWHZFTTJOyNagmSJ6XACbQMW7gNYQGBEEigNIxToOU4jFDGIB2VAQRK5BDQbQSFCpIRCCRQYhcQJ6YIAD76HomS5NU7UNKhHSdMy3J6ra5sOqbBqWa5LWjbNq3DadSzvPKub5vexwHwWawSUDkOR5Li+M43S4JPS5bZdDxPiWVJrnWOw9F6XxTiGWpsHcO5+C6Xx7kOZpwHoOxeF8T4fkeYJgnEdZwOwQRBnSex9H6f4vk+c5xn4fZQhQBCAg==")
var_Appearance:Add(41,"gBFLBCJwBAEHhEJAEGg4BQICg6AADACAxRDAMkOQAGaAoDDUMQyQwAAxDSK8EwsACEIrjKCRShyCYZRhGcTALBMIwKGABIRGUZJGDkOYgDCBEhTHDUOwHGyQYDkCQoRiYMAwTBQMaTXDdCQ1ECkJomObqAgkMZCTbKMySAA0NgPD6sKSjOIRSDUJZcV5EoAKfiqZIRSJSMZVLLVNSVJipAAlOTZPo6JJuTLOE4WVRcSydH6oAApeg6KoYAFzQAEDCbYgOTKBYLUOCwTZmDwTK6BcTtXDbejeYYcZ7DNj2NYtJ4TRCBcpzLLIXrCKg0TBPQ4YNC2DT5VDWIq1aDdQo7MpxWjlGI5Ri2c51UDSYi0G4tDyLSYWXDfFSQTrHDQXhAAghCUAxJgyaB1DkGRyDCKBhAiGwLg0DYhCKDI8CcVwIAwRotBeAYCCmBZ0nsfR+n+L5PlYE53BwTpzn4AIAiAGAOAMfZfmeVBwDuD54C4DYDCCaA6AgQJfHGPJtD+YRoGIF4GGGrAAH2RpjjCf4IGIOIKCSCQhmeXBtDqT54i4LYLCKaI6CkfRGlOKgtg2IxYl4OoMkwIYwmkP5jmkAg/hAZAYnAaw6A+eQeEmEgkikKg8BqDkYFCFIlBkThTg8BoThif4WGWORqFyFwjkGIJlD+ZgphIY4ZGYWYEmSGQmjGIhthvMpwGcOJPnmTh1h0JxploPAZg4I5+HyH4nlmfh/g8BhTgSf4hGgegagiIlShCYA/miahCg+JBpUIYw3k+ehehmJgpioaoWDeKYagAY4oioSZFn2BQfFGCJdD+aoqjKK4rGqWJwGENwPnqTo1i1gtiBgDYzn6PIviuWp+j+DwFnMaJ/jEbB7BqSIyCOQR4lkP5smsQpPjQbQbDSWI0C0cR6lmNpqGMCgJDCBZTFyf44G4O4KmSOWTnCVg/m6K4ymuOxu4OWw1E+e5OnWPQvGvYgWg0Q5+nyP4vlvE+OBMTJ/kEcB8BsCJCDATArA6QhxAgeIgkScRMFcFpFlCFAEICA")
var_Appearance:Add(42,"gBFLBCJwBAEHhEJAEGg4BY8MQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAwjQLMEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYgEiKLoaRzAcwyDAcQRFCKUJxhEY5ai+NobRCAUiwHQUBr/I4AKLfeJ5dACKYNShRMrSABMNgZBKpJAqKiqJoiFoRDINIi2BYUIhqGCxYRseyZegmEYWVTREr3HKsVTtAanjZSJakXxnGaQJ7jKaLXo6II8YTIWBABaIAQiBahQArOiKchaTZ5YheFRYVBOG4bK6BcguW4qGxSXpuRxZOo2YAFVzNNC3YzkCIcegnIp9ZxeFK5Tg1Z4XKTaNwqPBcYpHPqdVhCOgYZwUb5XMjWNatLYIboziiUhzCAeJeG6ZAAAiBIUA0JgziGVJkGUGJIBgUYSBEN5VBoGxCEUHItjSFAxBcRhim4dIqFGTB+BUfxfneegAgCYAoBQFR+lQeASAEBRIGESAogMYJ4DoEIEmCaAqAoJoGGCbgYgaIYYG4HoHGICByCKAoKmGZBOgkYh4hoKIKmKKI2CmC5giMBINBgY0AjODRjgiXg6g2I8glUKAHEifhBhAJApBYRIRmQOQmAoOgLBIEhMhOJJZD4UoUGUSRCFaAoOHKPIAhYZY5GoXIXmWaYGF2GJlgKMB9DmZhpiIZ4aGaSYuG6GomigWgGDmCohmYdIdicWZeHqHRnCgHgIh8aAIBoCA/lAECAg")
oDCOCX_Exontrol1:Appearance := 0x28000000 |
oDCOCX_Exontrol1:BackColor := RGB(255,255,255)
oDCOCX_Exontrol1:BackColorLevelHeader := RGB(255,255,255)
oDCOCX_Exontrol1:BackColorHeader := 0x27000000
oDCOCX_Exontrol1:SelBackColor := RGB(0,0,0)
oDCOCX_Exontrol1:SelForeColor := RGB(255,255,255)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:BackColorLevelHeader := 0x27000000
var_Chart:BackColor := RGB(255,255,255)
var_Chart:Bars:[Item,"Task"]:Color := 0x2a000000
oDCOCX_Exontrol1:FilterBarBackColor := 0x1000000
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := 0x29000000
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1000000
oDCOCX_Exontrol1:[Background,exSplitBar] := 0x1000000
oDCOCX_Exontrol1:EndUpdate()
|
|
1546
|
Is there anyway to change the style of the splitter which separates the list/chart
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := 0x1000000
oDCOCX_Exontrol1:[Background,exSplitBar] := 0x1ff0000
|
|
1545
|
Does your control support subscript or superscript, in HTML captions
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 64
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:[ItemBar,h,"",exBarCaption] := "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
|
|
1544
|
I have noticed that the column's header is changed once the cursor hovers it. Is it possible to change that visual appearance
local var_Columns as IColumns
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
oDCOCX_Exontrol1:BackColorHeader := 0x1000000
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := 0x12d86ff
|
|
1543
|
Is it possible to change the visual appearance of the columns selector/floating bar(3)
local var_Columns as IColumns
oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:VisualAppearance:Add(2,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(3,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:[Background,exColumnsFloatAppearance] := 0x2000000
oDCOCX_Exontrol1:[Background,exColumnsFloatBackColor] := 0x3000000
oDCOCX_Exontrol1:[Background,exColumnsFloatCaptionBackColor] := RGB(246,245,240)
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
|
|
1542
|
Is it possible to change the visual appearance of the columns selector/floating bar(2)
local var_Columns as IColumns
oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:VisualAppearance:Add(3,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:[Background,exColumnsFloatBackColor] := 0x3000000
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
|
|
1541
|
Is it possible to change the visual appearance of the columns selector/floating bar(1)
oDCOCX_Exontrol1:VisualAppearance:Add(2,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exColumnsFloatAppearance] := 0x2000000
oDCOCX_Exontrol1:[Background,exColumnsFloatBackColor] := RGB(246,245,240)
oDCOCX_Exontrol1:[Background,exColumnsFloatCaptionBackColor] := RGB(246,245,240)
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
|
|
1540
|
I am using the ColumnsFloatBarVisible property on True, but still not able to add any column on that list
local var_Columns as IColumns
oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
|
|
1539
|
Is it possible to list a column to columns selector/floating bar, but still user can use it
local var_Column as IColumn
local var_Columns as IColumns
oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:Visible := false
var_Column := IColumn{var_Columns:Add("Column 3")}
var_Column:Visible := false
var_Column:Enabled := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
|
|
1538
|
How can I prevent a specific column not to be listed in the columns selector/floating bar
local var_Column as IColumn
local var_Columns as IColumns
oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:Visible := false
var_Column := IColumn{var_Columns:Add("Column 3")}
var_Column:Visible := false
var_Column:AllowDragging := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
|
|
1537
|
Is it possible to change the "Columns" caption being shown in the columns selector/floating bar
local var_Columns as IColumns
oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:[Description,exColumnsFloatBar] := "Hidden Columns"
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
|
|
1536
|
How can I show the columns selector, so the user can drag and drop columns to the view
local var_Columns as IColumns
oDCOCX_Exontrol1:ColumnAutoResize := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:Visible := false
oDCOCX_Exontrol1:ColumnsFloatBarVisible := exColumnsFloatBarVisibleIncludeHiddenColumns
|
|
1535
|
The column's header is changed while the cursor hovers it. Is it possible to prevent that
local var_Columns as IColumns
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
|
|
1534
|
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:Layout := "Select=" + CHR(34) + "0" + CHR(34) + ";SingleSort=" + CHR(34) + "C0:2" + CHR(34) + ";Columns=1"
oDCOCX_Exontrol1:EndUpdate()
|
|
1533
|
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:Layout := "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAGQAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
oDCOCX_Exontrol1:EndUpdate()
|
|
1532
|
How do I arrange my columns on multiple levels
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("C0")}
var_Column:ExpandColumns := "1,2"
var_Column:DisplayExpandButton := false
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Column1 := IColumn{var_Columns:Add("C4")}
var_Column1:ExpandColumns := "5,6"
var_Column1:DisplayExpandButton := false
var_Columns:Add("C5")
var_Column2 := IColumn{var_Columns:Add("C6")}
var_Column2:ExpandColumns := "6,7"
var_Column2:DisplayExpandButton := false
var_Columns:Add("C7")
oDCOCX_Exontrol1:EndUpdate()
|
|
1531
|
Does your control support expandable header or columns, so I can arrange it on multiple levels
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:BackColorLevelHeader := RGB(240,240,240)
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("Photo")}
var_Column:AllowSizing := false
var_Column:Width := 32
var_Columns:Add("Personal Info")
var_Columns:Add("Title")
var_Columns:Add("Name")
var_Columns:Add("First")
var_Columns:Add("Last")
var_Columns:Add("Address")
var_Columns:[Item,"Personal Info"]:ExpandColumns := "2,3"
var_Column1 := var_Columns:[Item,"Name"]
var_Column1:ExpandColumns := "4,5"
var_Column1:Expanded := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1530
|
I need a Day/Hour Display where the Bars should be created/resized in a 15 Minute Scale in a normal View, but in a 5 Minute Scale when on an InsideZoom. How can I do that
local var_Chart as IChart
local var_InsideZoomFormat as IInsideZoomFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:AllowCreateBar := exCreateBarAuto
var_Chart:UnitWidth := 50
var_Chart:FirstVisibleDate := SToD("20130101")
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := 4096
var_Chart:[Level,1]:Label := "<%h%>:<%nn%>"
var_Chart:[Level,1]:Unit := exMinute
var_Chart:[Level,1]:Count := 60
var_Chart:ResizeUnitScale := exMinute
var_Chart:ResizeUnitCount := 15
var_Chart:AllowInsideZoom := true
var_InsideZoomFormat := var_Chart:DefaultInsideZoomFormat
var_InsideZoomFormat:InsideCount := 5
var_InsideZoomFormat:InsideUnit := exMinute
var_InsideZoomFormat:InsideLabel := "<%nn%>"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item")
oDCOCX_Exontrol1:EndUpdate()
|
|
1529
|
Can I change the format of date to be shown in the control
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Default")
var_Column := IColumn{var_Columns:Add("Format.1")}
var_Column:ComputedField := "%0"
var_Column:FormatColumn := "dateF(value) replace `/` with `-`"
var_Column1 := IColumn{var_Columns:Add("Format.2")}
var_Column1:ComputedField := "%0"
var_Column1:[Def,exCellValueFormat] := 1
var_Column1:FormatColumn := "`<b>`+ shortdate(value) + `</b> ` + timeF(value)"
var_Column2 := IColumn{var_Columns:Add("Format.3")}
var_Column2:ComputedField := "%0"
var_Column2:[Def,exCellValueFormat] := 1
var_Column2:FormatColumn := "` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) ) + `</b> ` + ( dateF(value) replace `/` with `-` )"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20010102 10:00:00"))
|
|
1528
|
How can I display a text/caption on the chart part of the control
local var_Chart as IChart
local var_Items as IItems
local var_Note,var_Note1,var_Note2 as INote
local var_Notes as INotes
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AntiAliasing := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001226")
var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Item 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
var_Items:[ItemBar,h1,"A",exBarCaption] := "text"
h1 := var_Items:AddItem("Item 2")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
var_Items:[ItemBar,h1,"A",exBarCaption] := "text outside associated with a bar"
var_Items:[ItemBar,h1,"A",exBarHAlignCaption] := 18
h1 := var_Items:AddItem("Item 3")
var_Items:AddBar(h1,"",SToD("20010102"),SToD("20010102"),"A",nil)
var_Items:[ItemBar,h1,"A",exBarCaption] := "text with no bar associated"
h1 := var_Items:AddItem("Item 4")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
h1 := var_Items:AddItem("Item 5")
h1 := var_Items:AddItem("Item 6")
h1 := var_Items:AddItem("Item 7")
h1 := var_Items:AddItem("Item 8")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
h1 := var_Items:AddItem("Item 8")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010106"),"A",nil)
var_Notes := oDCOCX_Exontrol1:Chart:Notes
var_Notes:Add("1S",oDCOCX_Exontrol1:Items:[ItemByIndex,3],"A","<font ;6>Movable Note Inside the Bar"):[PartCanMove,exNoteStart] := true
var_Notes:Add("AK",oDCOCX_Exontrol1:Items:[ItemByIndex,6],SToD("20010106"),"Note associated with a date: <%mm%>/<%dd%>/<%yyyy%>")
var_Note := var_Notes:Add("2S",oDCOCX_Exontrol1:Items:[ItemByIndex,7],"A","<font ;6>Fixed Note Left")
var_Note:ShowLink := exNoteLinkHidden
var_Note:[PartVOffset,exNoteEnd] := 0
var_Note:[PartHOffset,exNoteStart] := -32
var_Note:[PartShadow,exNoteEnd] := false
var_Note:[PartBackColor,exNoteEnd] := RGB(255,255,0)
var_Note1 := var_Notes:Add("3S",oDCOCX_Exontrol1:Items:[ItemByIndex,8],"A","Start<br><%mmm%> <%d%> <%yyyy%>")
var_Note1:[PartCanMove,exNoteEnd] := true
var_Note1:[PartHOffset,exNoteEnd] := -64
var_Note1:LinkStyle := exLinkDot
var_Note1:LinkWidth := 2
var_Note1:LinkColor := RGB(0,0,255)
var_Note2 := var_Notes:Add("3F",oDCOCX_Exontrol1:Items:[ItemByIndex,8],"A","End<br><%mmm%> <%d%> <%yyyy%>")
var_Note2:RelativePosition := 1
var_Note2:[PartCanMove,exNoteEnd] := true
var_Note2:LinkStyle := exLinkDot
var_Note2:LinkWidth := 2
var_Note2:LinkColor := RGB(0,0,255)
oDCOCX_Exontrol1:EndUpdate()
|
|
1527
|
Which is the best way of change Bar parent
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Item 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"A",nil)
h2 := var_Items:AddItem("Item 2")
var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010105"),"B",nil)
h3 := var_Items:AddItem("Item 3")
var_Items:AddBar(h3,"Task",SToD("20010105"),SToD("20010107"),"A",nil)
var_Items:[ItemBar,h3,"A",exBarParent] := h1
OutputDebugString(String2Psz( "The Bar A of H3 fails to change the parent to H1 as it has already a bar named A" ))
var_Items:[ItemBar,h3,"A",exBarParent] := h2
OutputDebugString(String2Psz( "The Bar A of H3 can be moved to H2, as it contains no bars with the key A" ))
|
|
1526
|
Is it possible to have a bar in bar
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BS4Dg6AADACAxRDAMgBQKAAzQFAYbBmGaGAAGIZhQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDKAkRRdDSOYDmGQYDiCIoRShOMIjRLUXxtDYEIRkSZYJAKCTtBwJAAURRULR6ACUYDnSRqGj6CQKRqEVBSLAdKyXJKvaZhGIRSDUJZkWZEIyjBY8EzXNqrIDoGKqYgOQ4XV5TFgxPR9IyhEAaLrleT5TjOII/RpOEpYXSVHxFRAAAYhG4wABCXAAXjYF5Udhlfx3FCvMbqeCcSgOWoDZZRFa0PjVQQtNC4IitGzrMqrNaDSBlGigBauKw3TKlMzye7repOA5+aJGVz7VgfGz7EDjKg0GJcgMex3lOZB5jgPYHHMaYxjeRBilWbZNG4B49l2do6hkfIhECUhjDoHROEYUYMgEbQMCEEx+lGIY0CQUQJHYGoUgQGBFkgB4FmkOINiMbBrAwQoxngSQMCCYJAG8DYCkMZJNDOAhAHCbYGGGOBqByB5hiMcJSDORhwjQKoEkKSIgHoEZEDgWJOECSwyGSGwjkWUJUh8HADiiXA6CSRgQliFwcgcSICB2EJkCKDIAB4CAxDgMoOiOIkfA4CoiDCDhAmUEg4hEF4DHKCByA8JYpHIWwbAMIIuC6EIkCiOBwA2QpSHQbgOkoIZMD2GxmnmOhVhUJQiEwYAOAoQZQD6HhnjmaIfBuQ5BlQPQLiMEhuEKIRHmEKA7h+Q5ChQdQPmiahCg+JBnDAAhVCVPpoicHYEAobodicKZqHqGAO0YNA0ikQxKg6IYnAqAZcEGKxqnqOowiUZRSFwYwPAqIZkEOLhrjqaIqB4BAqn6QYwCwKwWkSMZECKLo6jKBA7DKTItWEZBlA8SpRmwRY1G0exYi0HoEEsbpdjcLZrgaYI4kQQo6laOYEFuIpojQCJiHAZgPksAZ0EePBvDuSp0j2bxrmadY+m8QpGnKP4EHwAwAjsCZxiQQQtAgAQrAiQowhKUB/BIcJsEMD5EHETBPBYEhLFwJwZBKMY8G6bAoEaIQMjcIIEkzUZJAscgEEuShyjyKwskucpskQSwuDITJQEyTYzGuMIjBsBBCmiBATjObQDD+UB0E0DxGlCNINASO5PnSMQ7E2Uxu3CbQRguUgYFCVR1H0WxYC2R5xDSDgVWiXA8AyNggksXwPDWQQ3FgL4IHERxsluNpdj6bAqAacQckAEQBQWxfDzF4BUYYqBKhEEQNMDgPQGhFGIDgVwKR3iiCiIIIgig+BfA2MYOLtAqA4ESCYDIFgVDyGEKkPAQgFBDDwG4DYnQzg5GiDIOAZw3hCDoA8MQIA9PeGEHkRIyx6jiOMEoTAxRMhoCeIwUQKSbCKH6NgV43AECyFeEkEQdBTAxC0FESQYhgB+DGPcTwYBXBZEeCIOoKg5j6EIJAbQNxJCjCAMAJwDRxghA4DEBYpk1hnHwH4DIxg3AaFGGgMQFwHhBHgGkewhhCDIHMDkDY0AlAGEAIAgIA=")
var_Appearance:Add(2,"c:\exontrol\images\normal.ebn")
var_Appearance:Add(3,"CP:2 2 -4 2 4")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 256
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Info")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Range Moveable Frame")
var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010108"),"F",nil)
var_Items:[ItemBar,h,"F",exBarToolTip] := "This bar can be moved inside the displayed range."
var_Items:[ItemBar,h,"F",exBarMinStart] := SToD("20010102")
var_Items:[ItemBar,h,"F",exBarMaxEnd] := SToD("20010118")
var_Items:[ItemBar,h,"F",exBarShowRange] := 32
var_Items:[ItemBar,h,"F",exBarShowRangeTransparent] := 90
h := var_Items:AddItem("Range Moveable Pattern")
var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010110"),"F",nil)
var_Items:[ItemBar,h,"F",exBarToolTip] := "This bar can be moved inside the displayed range."
var_Items:[ItemBar,h,"F",exBarMinStart] := SToD("20010102")
var_Items:[ItemBar,h,"F",exBarMaxEnd] := SToD("20010118")
var_Items:[ItemBar,h,"F",exBarShowRange] := 1
var_Items:[ItemBar,h,"F",exBarShowRangeTransparent] := 90
h := var_Items:AddItem("Range Moveable EBN Transparent")
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"F",nil)
var_Items:[ItemBar,h,"F",exBarToolTip] := "This bar can be moved inside the displayed range."
var_Items:[ItemBar,h,"F",exBarMinStart] := SToD("20010102")
var_Items:[ItemBar,h,"F",exBarMaxEnd] := SToD("20010118")
var_Items:[ItemBar,h,"F",exBarShowRange] := 16777216
var_Items:[ItemBar,h,"F",exBarShowRangeTransparent] := 50
h := var_Items:AddItem("Range Moveable EBN Opaque 1")
var_Items:[ItemHeight,h] := 24
var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010114"),"F",nil)
var_Items:[ItemBar,h,"F",exBarToolTip] := "This bar can be moved inside the displayed range."
var_Items:[ItemBar,h,"F",exBarMinStart] := SToD("20010102")
var_Items:[ItemBar,h,"F",exBarMaxEnd] := SToD("20010118")
var_Items:[ItemBar,h,"F",exBarShowRange] := 33554432
h := var_Items:AddItem("Range Moveable EBN Opaque 2")
var_Items:[ItemHeight,h] := 24
var_Items:AddBar(h,"Task",SToD("20010112"),SToD("20010116"),"F",nil)
var_Items:[ItemBar,h,"F",exBarToolTip] := "This bar can be moved inside the displayed range."
var_Items:[ItemBar,h,"F",exBarMinStart] := SToD("20010102")
var_Items:[ItemBar,h,"F",exBarMaxEnd] := SToD("20010118")
var_Items:[ItemBar,h,"F",exBarShowRange] := 50331648
oDCOCX_Exontrol1:EndUpdate()
|
|
1525
|
How can I show vertical lines using the SelectDate
local var_Appearance as IAppearance
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BK8IQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTY4lCQJAiKLoeQLHMBybJ8LwiGQaRJmeaYRDUMI6QjPVARVIkaxhCSSaKpIAIBEB")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:LevelCount := 2
var_Chart:AllowSelectDate := exNoSelectDate
var_Chart:MarkSelectDateColor := 0x1000000
var_Chart:SelectLevel := 1
var_Chart:[SelectDate,SToD("20080115")] := true
var_Chart:[SelectDate,SToD("20080118")] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1524
|
How can I show vertical lines using the SelectDate
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:LevelCount := 2
var_Chart:AllowSelectDate := exNoSelectDate
var_Chart:MarkSelectDateColor := 0x7fff0000
var_Chart:SelectLevel := 1
var_Chart:[SelectDate,SToD("20080115")] := true
var_Chart:[SelectDate,SToD("20080118")] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1523
|
How can I find if there is any filter applied to the control
METHOD OCX_Exontrol1FilterChange() CLASS MainDialog
// FilterChange event - Occurs when the filter was changed.
OutputDebugString(String2Psz( "If negative, the filter is present, else not" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:VisibleItemCount) ))
RETURN NIL
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:FilterInclude := exMatchingItemsOnly
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exFilter
var_Column:Filter := "C1"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"C1")
var_Items:InsertItem(h,nil,"C2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"C1")
var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1522
|
How can I prevent showing the lines for the hierarchy while using the exMatchingItemsOnly option
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:FilterInclude := exMatchingItemsOnly
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exFilter
var_Column:Filter := "C1|C2"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"C1")
var_Items:InsertItem(h,nil,"C2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"C1")
var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1521
|
Is there any method to get only the matched items and not the items with his parent
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:FilterInclude := exMatchingItemsOnly
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exFilter
var_Column:Filter := "C1|C2"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"C1")
var_Items:InsertItem(h,nil,"C2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"C1")
var_Items:InsertItem(h,nil,"C2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1520
|
Is it possible to specify a working day exception that would override the non-working day pattern
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Pattern")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstWeekDay := exMonday
var_Chart:FirstVisibleDate := SToD("20080124")
var_Chart:[PaneWidth,false] := 52
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Default")
var_Items:[ItemNonworkingUnits,var_Items:AddItem("1/26/2008"),false] := "weekday(value) case (default:0 ; 0:1; 6:(value != #1/26/2008#))"
var_Items:[ItemNonworkingUnits,var_Items:AddItem("1/27/2008"),false] := "weekday(value) case (default:0 ; 0:(value != #1/27/2008#); 6:1)"
var_Items:[ItemNonworkingUnits,var_Items:AddItem("Sundays"),false] := "weekday(value) = 0"
oDCOCX_Exontrol1:EndUpdate()
|
|
1519
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exDisableBoth
oDCOCX_Exontrol1:Chart:ToolTip := ""
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHChartScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:EndUpdate()
|
|
1518
|
Is it possible to associate an extra frame, border, EBN to the bar/task
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BNACg6AADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTVJ8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQVTQcZPVhgAYYfSlMDuOB5Gq+G5SQjhWIgBjde4dRrHYrsGyQAp7JJoWLZMQyFIFIYNTS8LgpPI6LyyP5rABhWw5PiUVyfWTMdwzPatbyKHJicbpepWPxcNYtNzcNb3SAbn+KgAmqP5yDiIAACIEhQDSGJOgcU4RhQYwgFUQwIESXxEGgbQJBQQhzHmUAAGILh0lWbpEGIIQQHuegaAaoRYBUBYBCgFAOAOQJgC4CgCCCQAUAQARACgRZFEa3ogCcCICDCDZ9AeH5wGgFoHmAUBIA6CJgiALgMAIABYiYER+BuMIyC4CZjAcYgygyYxIlYNoNBGMJGDoCximiXg+g+Yx0G0DgNiOIJGECEZkgQbA7A8A5JA4SITmOZBsEGFJDkkLhQhXOItBYEZEGEHBCBARApGIYh1EAaIoAMQIEkENBNBGZpJg4YgCGcAAaGUAAFCmVhqBMZppGADQDACQAmAwAAFgoBh1BSJ4ZFwEEdHmcFmgWag2gEFhoFlINYkoHAQAABhKGQX4jGkGQ8BiJ5BDqBAABqKl1GSJxkgAcoqAYAR3lQcIrkaOoSiiEZCBCBAgiqAaJHaLpHBqQoliaBZxHwWYwkUQRMFQExEmENBJBIRIBAgQwQkOYJ0D4DhDgCYAzjWQpgjwLgKi2QIWl4CACADeofC4SpsHcHArlqRBqBkbpLAaQoxAUQRQE6PLoCaT40AOYJ6lWNdXlAL4/m2QIql4CRAAQBCAg=")
var_Appearance:Add(2,"CP:1 -4 -4 4 4")
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
var_Chart:DrawGridLines := exAllLines
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task"),"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
h := var_Items:AddItem("Task/ EBN Frame")
var_Items:[ItemHeight,h] := 32
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010115"),"K2",nil)
var_Items:[ItemBar,h,"K2",exBarFrameColor] := 33554432
h := var_Items:AddItem("Task/ EBN Frame")
var_Items:[ItemHeight,h] := 32
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010115"),"K2",nil)
var_Items:[ItemBar,h,"K2",exBarFrameColor] := 50331392
var_Items:AddBar(var_Items:AddItem("Task"),"Task",SToD("20010102"),SToD("20010105"),"K3",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1517
|
Is it possible to automatically display the working days duration in a column
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
var_Column := IColumn{var_Columns:Add("Duration")}
var_Column:[Def,exCellValueToItemBarProperty] := 513
var_Column:[Def,exCellValueToItemBarKey] := "A"
var_Column1 := IColumn{var_Columns:Add("Working")}
var_Column1:[Def,exCellValueToItemBarProperty] := 258
var_Column1:[Def,exCellValueToItemBarKey] := "A"
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 256
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020108"),"A",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1516
|
How can I apply colors to columns section of the control based on properties of the displaying bars
METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
// BarResize event - Occurs when a bar is moved or resized.
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("<fgcolor=FF0000>Tasks > 2 days")}
var_Column:HTMLCaption := var_Column:Caption
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("PropertyBar")}
var_Column1:Visible := false
var_Column1:[Def,exCellValueToItemBarKey] := ""
var_Column1:[Def,exCellValueToItemBarProperty] := 513
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 96
var_Chart:NonworkingDays := 0
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%1 > 2",nil)
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:Bold := true
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010104"),SToD("20010107"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1515
|
Is it possible to update the colors on columns caption to highlight the critical path ( CPM )
METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
// BarResize event - Occurs when a bar is moved or resized.
oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
local h1,h2,h3,h4 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("PropertyBar")}
var_Column:Visible := false
var_Column:[Def,exCellValueToItemBarKey] := ""
var_Column:[Def,exCellValueToItemBarProperty] := 269
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:NonworkingDays := 0
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%1 != 0",nil)
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:Bold := true
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L1",h1,"",h2,"")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L2",h2,"",h3,"")
h4 := var_Items:AddItem("Task 3")
var_Items:AddBar(h4,"Task",SToD("20010102"),SToD("20010103"),"",nil)
var_Items:AddLink("L3",h2,"",h4,"")
var_Items:[DefSchedulePDM,exPDMCriticalPathBarColor] := 255
var_Items:[DefSchedulePDM,exPDMCriticalPathLinkColor] := 255
var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()
|
|
1514
|
I am using the AddShapeCorner to define icon-bars. Is it possible to define with a different color
local var_Bar,var_Bar1,var_Bar2 as IBar
local var_Bars as IBars
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
var_Bars := var_Chart:Bars
var_Bars:AddShapeCorner(12345,1)
var_Bar := var_Bars:Copy("Milestone","Original")
var_Bar:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
var_Bar:StartColor := -1
var_Bar1 := var_Bars:Copy("Milestone","Red")
var_Bar1:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
var_Bar1:StartColor := RGB(255,0,0)
var_Bar2 := var_Bars:Copy("Milestone","Green")
var_Bar2:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
var_Bar2:StartColor := RGB(0,255,0)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Original"),"Original",SToD("20010102"),SToD("20010102"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Red"),"Red",SToD("20010102"),SToD("20010102"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Green"),"Green",SToD("20010102"),SToD("20010102"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1513
|
My icon-bars shows different when displaying in the chart. Any ideas
local var_Bar as IBar
local var_Bars as IBars
local var_Items as IItems
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bars := oDCOCX_Exontrol1:Chart:Bars
var_Bars:AddShapeCorner(12345,1)
var_Bar := var_Bars:[Item,"Milestone"]
var_Bar:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
var_Bar:StartColor := -1
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
|
|
1512
|
The items are not colored in the chart panel
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item")
oDCOCX_Exontrol1:Chart:[ItemBackColor,h] := RGB(0,255,0)
oDCOCX_Exontrol1:Items:[ItemBackColor,h] := RGB(0,255,0)
|
|
1511
|
I need to know how to determine the critical path (CPM) after the SchedulePDM procedure, so I can turn red the bars and links
METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
// BarResize event - Occurs when a bar is moved or resized.
oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:NonworkingDays := 0
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
h4 := var_Items:AddItem("Task 3")
var_Items:AddBar(h4,"Task",SToD("20010102"),SToD("20010103"),"K4",nil)
var_Items:AddLink("L3",h2,"K2",h4,"K4")
var_Items:[DefSchedulePDM,exPDMCriticalPathBarColor] := 255
var_Items:[DefSchedulePDM,exPDMCriticalPathLinkColor] := 255
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1510
|
How can I display the Year in Thai, Buddhist, Korean format
local var_Chart as IChart
local var_Level as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstWeekDay := var_Chart:LocFirstWeekDay
var_Chart:MonthNames := var_Chart:LocMonthNames
var_Chart:WeekDays := var_Chart:LocWeekDays
var_Chart:AMPM := var_Chart:LocAMPM
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
var_Chart:UnitScale := exDay
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%mmmm%> <%d%>, <%loc_yyyy%> <r><%ww%>"
var_Level:Unit := exWeek
var_Level:ToolTip := var_Level:Label
var_Chart:ToolTip := "<%ddd%> <%m%>/<%d%>/<%loc_yyyy%>"
oDCOCX_Exontrol1:[Description,exFilterBarDateMonths] := oDCOCX_Exontrol1:Chart:MonthNames
oDCOCX_Exontrol1:[DefaultEditorOption,exDateMonths] := oDCOCX_Exontrol1:Chart:MonthNames
|
|
1509
|
How does localization work
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstWeekDay := var_Chart:LocFirstWeekDay
var_Chart:MonthNames := var_Chart:LocMonthNames
var_Chart:WeekDays := var_Chart:LocWeekDays
var_Chart:AMPM := var_Chart:LocAMPM
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
|
|
1508
|
Is it possible to show the bars with a different brightness (2)
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task--.ebn")
var_Appearance:Add(2,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task-.ebn")
var_Appearance:Add(3,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task.ebn")
var_Appearance:Add(4,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task+.ebn")
var_Appearance:Add(5,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task++.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
var_Chart:NonworkingDays := 0
var_Chart:Bars:Copy("Task","--"):Color := 0x1000000
var_Chart:Bars:Copy("Task","-"):Color := 0x2000000
var_Chart:Bars:[Item,"Task"]:Color := 0x3000000
var_Chart:Bars:Copy("Task","+"):Color := 0x4000000
var_Chart:Bars:Copy("Task","++"):Color := 0x5000000
oDCOCX_Exontrol1:Columns:Add("Brightness")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("0%")
var_Items:AddBar(h,"--",SToD("20010102"),SToD("20010104"),"--",nil)
var_Items:AddBar(h,"-",SToD("20010105"),SToD("20010107"),"-",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"",nil)
var_Items:AddBar(h,"+",SToD("20010111"),SToD("20010113"),"+",nil)
var_Items:AddBar(h,"++",SToD("20010114"),SToD("20010116"),"++",nil)
h := var_Items:AddItem("25%")
var_Items:AddBar(h,"--",SToD("20010102"),SToD("20010104"),"--",nil)
var_Items:AddBar(h,"-",SToD("20010105"),SToD("20010107"),"-",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"",nil)
var_Items:AddBar(h,"+",SToD("20010111"),SToD("20010113"),"+",nil)
var_Items:AddBar(h,"++",SToD("20010114"),SToD("20010116"),"++",nil)
var_Items:[ItemBar,h,"<*>",exBarTransparent] := 25
h := var_Items:AddItem("50%")
var_Items:AddBar(h,"--",SToD("20010102"),SToD("20010104"),"--",nil)
var_Items:AddBar(h,"-",SToD("20010105"),SToD("20010107"),"-",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"",nil)
var_Items:AddBar(h,"+",SToD("20010111"),SToD("20010113"),"+",nil)
var_Items:AddBar(h,"++",SToD("20010114"),SToD("20010116"),"++",nil)
var_Items:[ItemBar,h,"<*>",exBarTransparent] := 50
h := var_Items:AddItem("75%")
var_Items:AddBar(h,"--",SToD("20010102"),SToD("20010104"),"--",nil)
var_Items:AddBar(h,"-",SToD("20010105"),SToD("20010107"),"-",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"",nil)
var_Items:AddBar(h,"+",SToD("20010111"),SToD("20010113"),"+",nil)
var_Items:AddBar(h,"++",SToD("20010114"),SToD("20010116"),"++",nil)
var_Items:[ItemBar,h,"<*>",exBarTransparent] := 75
|
|
1507
|
Is it possible to show the bars with a different brightness (1)
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:[Item,"Task"]:Color := 0x1000000
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Brightness")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("0%")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
h := var_Items:AddItem("25%")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarTransparent] := 25
h := var_Items:AddItem("50%")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarTransparent] := 50
h := var_Items:AddItem("75%")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:[ItemBar,h,"",exBarTransparent] := 75
|
|
1506
|
So the behavior I am looking for is that a change can cascade through a bar's successors, but a change that would affect a bar's predecessors is not allowed. Is this possible to in ExG2antt
local var_Chart as IChart
local var_Items as IItems
local h,h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:Columns:Add("Tasks")
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Visible := false
IColumn{oDCOCX_Exontrol1:Columns:Add("End")}:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20060918")
var_Chart:[PaneWidth,false] := 64
var_Chart:[ScrollRange,exStartDate] := var_Chart:FirstVisibleDate
var_Chart:[ScrollRange,exEndDate] := SToD("20061231")
var_Chart:MarkSelectDateColor := 0x7fff0000
var_Chart:SelectLevel := 1
var_Chart:[SelectDate,SToD("20060919")] := true
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:AllowLinkBars := false
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
var_Items:[CellValue,h,1] := SToD("20060921")
var_Items:[CellValue,h,2] := SToD("20061003")
var_Items:AddBar(h,"Summary",var_Items:[CellValue,h,1],var_Items:[CellValue,h,2],"sum",nil)
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:[CellValue,h1,1] := var_Items:[CellValue,h,1]
var_Items:[CellValue,h1,2] := SToD("20060924")
var_Items:AddBar(h1,"Task",var_Items:[CellValue,h1,1],var_Items:[CellValue,h1,2],"K1",nil)
var_Items:[ItemBar,h1,"K1",exBarMinStart] := SToD("20060920")
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:[CellValue,h2,1] := var_Items:[CellValue,h1,2]
var_Items:[CellValue,h2,2] := SToD("20060928")
var_Items:AddBar(h2,"Unknown",var_Items:[CellValue,h2,1],var_Items:[CellValue,h2,2],"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:[CellValue,h3,1] := var_Items:[CellValue,h2,2]
var_Items:[CellValue,h3,2] := var_Items:[CellValue,h,2]
var_Items:AddBar(h3,"Task",var_Items:[CellValue,h3,1],var_Items:[CellValue,h3,2],"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:GroupBars(h1,"K1",false,h2,"K2",true,31,"0;4")
var_Items:GroupBars(h2,"K2",false,h3,"K3",true,31,"0;2")
var_Items:DefineSummaryBars(h,"sum",h1,"K1")
var_Items:DefineSummaryBars(h,"sum",h2,"K2")
var_Items:DefineSummaryBars(h,"sum",h3,"K3")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1505
|
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("Car")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exFilter
var_Column:Filter := "MAZDA"
var_Column1 := IColumn{var_Columns:Add("Equipment")}
var_Column1:DisplayFilterButton := true
var_Column1:DisplayFilterPattern := false
var_Column1:CustomFilter := "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
var_Column1:FilterType := exPattern
var_Column1:Filter := "AIR BAG"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "Air Bag"
var_Items:[CellValue,var_Items:AddItem("Toyota"),1] := "Air Bag,Air condition"
var_Items:[CellValue,var_Items:AddItem("Ford"),1] := "Air condition"
var_Items:[CellValue,var_Items:AddItem("Nissan"),1] := "Air Bag,ABS,ESP"
var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "Air Bag, ABS,ESP"
var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "ABS,ESP"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1504
|
How can I have a case-sensitive filter
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("Car")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exFilterDoCaseSensitive | exFilter
var_Column:Filter := "Mazda"
var_Column1 := IColumn{var_Columns:Add("Equipment")}
var_Column1:DisplayFilterButton := true
var_Column1:DisplayFilterPattern := false
var_Column1:CustomFilter := "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
var_Column1:FilterType := exFilterDoCaseSensitive | exPattern
var_Column1:Filter := "Air Bag"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "Air Bag"
var_Items:[CellValue,var_Items:AddItem("Toyota"),1] := "Air Bag,Air condition"
var_Items:[CellValue,var_Items:AddItem("Ford"),1] := "Air condition"
var_Items:[CellValue,var_Items:AddItem("Nissan"),1] := "Air Bag,ABS,ESP"
var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "Air Bag, ABS,ESP"
var_Items:[CellValue,var_Items:AddItem("Mazda"),1] := "ABS,ESP"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1503
|
Is it possible to add a custom label to the days with a specified background color
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"",SToD("20010102"),SToD("20010108"),"K1","Leave Blank")
var_Items:[ItemBar,h1,"K1",exBarSelectable] := false
var_Items:[ItemBar,h1,"K1",exBarBackColor] := 255
oDCOCX_Exontrol1:EndUpdate()
|
|
1502
|
What is the event fired when I change "...Chart.PaneWidthLeft" (or "...Chart.PaneWidthRight") in the Gantt splitter window
METHOD OCX_Exontrol1ChartEndChanging(Operation) CLASS MainDialog
// ChartEndChanging event - Occurs after the chart has been changed.
OutputDebugString(String2Psz( "End Operation(exVSplitterChange(10)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "PaneWidth:" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[PaneWidth,false]) ))
RETURN NIL
METHOD OCX_Exontrol1ChartStartChanging(Operation) CLASS MainDialog
// ChartStartChanging event - Occurs when the chart is about to be changed.
OutputDebugString(String2Psz( "Start Operation(exVSplitterChange(10)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "PaneWidth:" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:[PaneWidth,false]) ))
RETURN NIL
|
|
1501
|
I want to ask if I can select more than one bar in the chart and move them together
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001229")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010104"),SToD("20010106"),"K2",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
h := var_Items:AddItem("")
var_Items:AddBar(h,"",SToD("20010108"),SToD("20010110"),"","<b>Right click</b> the chart, start dragging to select multiple bars<br>or click a bar while pressing the <b>CTRL</b> key")
var_Items:[ItemHeight,h] := 36
var_Items:[ItemBar,h,"",exBarSelectable] := false
oDCOCX_Exontrol1:EndUpdate()
|